****** * 



******************** 



************************************************ 



Copyright @ [01/25/1999] Scenix Semiconductor, Inc. All rights reserved. 

,-Scenix Semiconductor, Inc. assumes no responsibility or liability for 
the use of this [product, application, software, any of these products] . 
Scenix Semiconductor conveys no license, implicitly or otherwise, under 
any intellectual property rights. 

Information contained in this publication regarding (e.g.: application, 
implementation) and the like is intended through suggestion only and may 
be superseded by updates. Scenix Semiconductor makes no representation 
or warranties with respect to the accuracy or use of these information, 
or infringement of patents arising from such use or otherwise. 
****************************************************************************** 
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simple_f sk_rcv . src 

Chris Fogelklou 
Applications Engineer 
Scenix Semiconductor Inc. 

1.02 

January 25, 1999. 
SX2 8AC rev. 2.5 



50Mhz 

Compiled using Parallax SX-Key software vl . 
Version: 1.02 

Program Description: This is simple software to demonstrate the concept of 

converting an incoming frequency to a data train. This 
program simply watches the incoming frequency and outputs 
a high or a low to the RS-232 TX pin. For this reason, the 
PC that the board is connected to must be set to the desired 
baud rate. Example: If a 300, N, 8,1 settings are desired, 
simply set the PC's terminal program to these settings and 
the SX modem will act as a simple frequency-voltage converter, 
translating the incoming frequency (1300Hz and 2100Hz) to 
an output voltage which the computer will receive as a 300, N, 8, 
data packet . Once the modem is connected, simply press a key 
on the keyboard to get it to pick up and begin receiving. 



Revision History: 1.0 Drew out the FSK receive code from the rest of the code 
surrounding it in the old modem demo software and implemented 



it as a module by itself (December 17, 1998) 
; 1.01 Added more documentation to the software for web-posting. 

(January 25, 1999) 

1.02 Added support for rev 1.4 boards (2/23/99) 

INPUTS : 

FSK input on fsk_rx_pin (rb.l) (Signal must be amplified until clipping 

to overcome Schmitt Trigger inputs.) 
RS-232 input on rx_pin (ra.l) 

OUTPUTS : 

Received RS-232 characters on tx_pin (ra.2) 
LED flashes while receiving on led__pin (rb.O) 

RESOURCES : 
; Program memory: 6 7 Words 

; Data memory: 3 bytes 

; I/O Count: 3-5 (Some may be optional) 

.****************************************************************************** 
; Device Directives 

device pins28 , pagesl , banks8 ; 28-pin device, 1 pages, 8 banks of RAM 

device oschs, turbo, optionx, stackx ; High speed oscillator, turbo mode, 

; option register extend, 8-level stack 

freq 5 0_0 0_00 ; default run speed = 5 0MHz 

ID 'SFSKRX10' ; Version =1.01 

reset reset_entry ; JUMP to reset_entry label on reset 

.************************************************^ 
; Watches (For Debug in SX_Key software V.1.0 +) 

watch fsk_trans_count, 8,udec ; counts the delay between transitions 

.****************************************************************************** 
; Macros (These only required on SX DTMF DEMO board) 

; oldboard ; Uncomment this if board is not marked rev 1.4 or uses 

; a DIP SX package. 
disable_o macro ; This macro disables the output 

ifdef oldboard 

setb in_out ; switch on the new modem boards . 

else 

clrb in_out 

endif 



clr flags 
endm 

**************************************************************************** 

Equates for FSK reception 
****************************************************************************** 

The threshold which defines a glitch (small spike which should be ignored) 

The lowest count allowed for a high frequency 

The lowest count allowed for a low frequency 

The highest count allowed for a low frequency 



glitch_th equ 2 

low_count_error_th equ 4 

low_high_th equ 95 

high_count_error_th equ 14 



****************************************************************************** 

Pin Definitions (These definitions are for SX DTMF DEMO boards) 
****************************************************************************** 



rx_pin equ ra.l 

tx_pin equ ra . 2 

in_out equ ra . 3 



RS-232 Input pin 

RS-232 Output pin 

Switches between output 

and input on SX DTMF DEMO boards. 



led_pin equ rb.O ; Flashes while characters are 

; being received, 
hook equ rb.4 ; Goes on/off -hook. 

****************************************************************************** 
Global Variables 

****************************************************************************** 
org $8 ; Global registers 

flags ds 1 

fsk_rx_en equ flags.O ; Enables the FSK receiver. 

****************************************************************************** 
Bank Variables 

****************************************************************************** 
org $10 

f sk_receive_bank = $ 

f sk_trans_count ds 1 ; This register counts the number of counts 

; between transitions at the pin 

rb_past_state ds 1 ; This register keeps track of the previous 

j state of port RB, to watch for transitions 

.****************************************************************************** 
; Interrupt 

org $0 ; The interrupt Service routine starts at location zero. 



With a retiw value of -163 and an oscillator frequency of 50MHz, this 
code runs every 3.26us. 
****************************************************************************** 



jnb 



f sk_rx_en, f sk_rx_out ; jump out if the FSK receiver is not enabled 



.****************************************************************************** 



FSK RECEIVE 



bank 

add 
snc 
jmp 

cjb 

setb 

clrb 



:fsk timer out 



mov 
and 
xor 
jz 



received 



anything. . . 
do anything) 



cjb 
cjb 
huh? 
cjb 
cjb 



: high_f requency 



imp 

f 

clrb 
setb 
jmp 



f sk_receive_bank 

f sk_trans_count, #1 
1 



; switch to f sk_receive_bank of RAM 

; Regardless of what is going on, increment the 

; transition timer. These get cleared when a transition 

; takes place . 



f sk_trans_count , #low_high 
tx_pin 
LED_pin 



_tfa, : fsk_tims 



mer_out ; as soon as it takes longer than 95 counts 

; to transition, this must be a low frequency 
; If a high is being sent, clear the LED 



w, rb 

w,#%00000010 
w, rb_past_state 
fsk rx out 



; get the current state of rb. 

; compare it with the previous state of the pin 
; if there was no change, then jump out, there is nothing to do. 

; Now it is time to determine if the transition that took place indicates a bit was 

; (it must be within some thresholds... below 20, ignore it, below 40, what???, 
; below 95, high frequency, below 140, low frequency (already set), above 140, 



what???) 



,13 



; pulse was below specs, ignore it... probably noise 
; pulse was not a glitch but wasn't long enough to mean 



f sk_trans_count, #glitch_th, :glitch_so_ignore 
f sk_trans_count , #low_count_error_th, : error 

rans 



fsk_trans_count, #low_high_th, :high_f requency ; pulse was within specs for a high frequency... 

f sk_trans_count , #high_count_error_th, : f sk_receive_done ; pulse was within specs for a low frequency (don't 



: error 



tx_pin 
LED_pin 

:fsk receive done 



; pulse was too long to mean anything, so do nothing. 
; a high frequency corresponds to low data. 
,■ set the LED to indicate a LOW is being sent . 



PUT ERROR HANDLING CODE IN HERE 



o 



ft. 



f d 7- 



V 



: f sk_receive_done 
clr 

: glitch_so_ignore 
mov 
and 
mov 

f sk_rx_out 
****************** 



; clear the bit counter, 
j don't clear the counter if the data was a glitch 
; save the new state of RB. 



f sk_trans_count 

w, rb 
w,#%00000010 
rb_past_state , w 

********************************************************* 



ISR_DONE 

This is the end of the interrupt service routine. Now load 163 into w and 
perform a retiw to interrupt 163 cycles from the start of this one. 
(3 . 26us@50MHz) 

****************************************************************************** 

mov w,#-163 ;1 ; interrupt 163 cycles after this interrupt 

retiw ;3 ; return from the interrupt 

****************************************************************************** 

End of the Interrupt Service Routine 
****************************************************************************** 



; ****************************************************************************** 
reset_entry 

; Program Starts Here on Power Up 

.****************************************************************************** 



mov m,#$0c 

mov !rb,#%11111101 

mov m,#$0f 
mov ra,#%0110 

mov !ra,#%0010 
mov rb, #%00000000 

mov !rb,#%11101110 

clrb hook 

setb led_pin 

clr flags 

disable o 



; Initialize SX . 

; enable Schmidt trigger on rbl (for FSK receive) 



init ra 

raO-1 = input, ra2-3 = output 
init rb 

rbl = FSK input, rbO = output for LED, rb5 « hook 
go on hook . 
turn on LED 
Clear all flags 



jb 



rx_pin, $ 



setb hook 
setb fsk rx en 



; until the user presses a key, loop indefinetely 

; pick up the line 

; enable the FSK receiver 



! option, #%00011111 



enable wreg and rtcc interrupt 



main 



jmp 



; jump here forever (ISR does all the work) 



